unit UntStoreCodeDB;

interface

type
  TStoreCodeDB = class(TObject)
  public
    class function getConditionStr(StoreCode: string): string;
    class function getConditionStrDfn: string;
  end;

implementation

uses
  UntLogin;

class function TStoreCodeDB.getConditionStr(StoreCode: string): string;
begin
  Result := ' and StoreCode in ('+StoreCode+')';
end;

class function TStoreCodeDB.getConditionStrDfn: string;
begin
  Result := getConditionStr('"'+TFrmLogin.login.StoreCode+'"');
end;

end.
